home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / B / Terse.pm < prev    next >
Encoding:
Perl POD Document  |  2009-06-26  |  2.7 KB  |  103 lines
  1. package B::Terse;
  2.  
  3. our $VERSION = '1.05';
  4.  
  5. use strict;
  6. use B qw(class @specialsv_name);
  7. use B::Concise qw(concise_subref set_style_standard);
  8. use Carp;
  9.  
  10. sub terse {
  11.     my ($order, $subref) = @_;
  12.     set_style_standard("terse");
  13.     if ($order eq "exec") {
  14.     concise_subref('exec', $subref);
  15.     } else {
  16.     concise_subref('basic', $subref);
  17.     }
  18. }
  19.  
  20. sub compile {
  21.     my @args = @_;
  22.     my $order = @args ? shift(@args) : "";
  23.     $order = "-exec" if $order eq "exec";
  24.     unshift @args, $order if $order ne "";
  25.     B::Concise::compile("-terse", @args);
  26. }
  27.  
  28. sub indent {
  29.     my ($level) = @_ ? shift : 0;
  30.     return "    " x $level;
  31. }
  32.  
  33. # Don't use this, at least on OPs in subroutines: it has no way of
  34. # getting to the pad, and will give wrong answers or crash.
  35. sub B::OP::terse {
  36.     carp "B::OP::terse is deprecated; use B::Concise instead";
  37.     B::Concise::b_terse(@_);
  38. }
  39.  
  40. sub B::SV::terse {
  41.     my($sv, $level) = (@_, 0);
  42.     my %info;
  43.     B::Concise::concise_sv($sv, \%info);
  44.     my $s = indent($level)
  45.     . B::Concise::fmt_line(\%info, $sv,
  46.                  "#svclass~(?((#svaddr))?)~#svval", 0);
  47.     chomp $s;
  48.     print "$s\n" unless defined wantarray;
  49.     $s;
  50. }
  51.  
  52. sub B::NULL::terse {
  53.     my ($sv, $level) = (@_, 0);
  54.     my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv;
  55.     print "$s\n" unless defined wantarray;
  56.     $s;
  57. }
  58.  
  59. sub B::SPECIAL::terse {
  60.     my ($sv, $level) = (@_, 0);
  61.     my $s = indent($level)
  62.     . sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]);
  63.     print "$s\n" unless defined wantarray;
  64.     $s;
  65. }
  66.  
  67. 1;
  68.  
  69. __END__
  70.  
  71. =head1 NAME
  72.  
  73. B::Terse - Walk Perl syntax tree, printing terse info about ops
  74.  
  75. =head1 SYNOPSIS
  76.  
  77.     perl -MO=Terse[,OPTIONS] foo.pl
  78.  
  79. =head1 DESCRIPTION
  80.  
  81. This version of B::Terse is really just a wrapper that calls B::Concise
  82. with the B<-terse> option. It is provided for compatibility with old scripts
  83. (and habits) but using B::Concise directly is now recommended instead.
  84.  
  85. For compatibility with the old B::Terse, this module also adds a
  86. method named C<terse> to B::OP and B::SV objects. The B::SV method is
  87. largely compatible with the old one, though authors of new software
  88. might be advised to choose a more user-friendly output format. The
  89. B::OP C<terse> method, however, doesn't work well. Since B::Terse was
  90. first written, much more information in OPs has migrated to the
  91. scratchpad datastructure, but the C<terse> interface doesn't have any
  92. way of getting to the correct pad. As a kludge, the new version will
  93. always use the pad for the main program, but for OPs in subroutines
  94. this will give the wrong answer or crash.
  95.  
  96. =head1 AUTHOR
  97.  
  98. The original version of B::Terse was written by Malcolm Beattie,
  99. E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen
  100. McCamant, E<lt>smcc@MIT.EDUE<gt>.
  101.  
  102. =cut
  103.